perm filename SETNAM.1[AID,LSP] blob sn#318866 filedate 1977-11-17 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(LAP SETNAME SUBR)
C00003 ENDMK
CāŠ—;
(LAP SETNAME SUBR)
(ARGS SETNAME (NIL . 1))
(PUSH FXP A)
(PUSHJ P SIXMAK)
(MOVE A 0 A)
(CALLI A 43)
(POP FXP A)
(POPJ P)
SIXMAK 	(MOVEI B '6)				;direct lift from faslap
	(CALL 2 'PNGET)
	(HLRZ A 0 A)
	(MOVE TT 0 A)
	(POPJ P)
NIL